MacWorld 1998 October/Macworld (1998-10).dmg/Serious Demos/Morpha/3DO.DXR/00035_all groups.ls

Text File | 1998-07-31 | 559 b | 28 lines

property mys, mystore, spare
global grouper

on beginSprite me
  set mys to the spriteNum of me
end

on mouseDown me
  set spare to "all groups"
  set grouper to 0
  set mystore to 100
  set the blend of sprite 31 to 40
  set the blend of sprite 36 to 40
  sendAllSprites(#blender)
end

on mouseEnter me
  set spare to the text of field "group"
  set mystore to the blend of sprite mys
  set the blend of sprite mys to 100
  put "all groups" into field "group"
end

on mouseLeave me
  put spare into field "group"
  set the blend of sprite mys to mystore
end